10 FORI=#97E0TO#97F3:READA$:POKEI,VAL("#"+A$):NEXT:DOKE#1B,#97E0
20 DATA 20,B0,CC,A5,A6,38,E5,A0,AA,A5,A7,E5,A1,20,C5,E0,20,F0,CB,60
30 REM POUR L'ORIC 1,ECHANGER LA LIGNE 20 CONTRE LA 40 (SANS LE REM!)
40 REM DATA 20,ED,CB,A5,A6,38,E5,A0,AA,A5,A7,E5,A1,20,C1,E0,20,9F,CB,60